Macintosh Animation Showcase/Macintosh Animation Showcase CD-ROM.iso/SOURCES/Help/background_6722.txt

Text File | 1988-12-23 | 4.6 KB | 215 lines

-- background: 6722 from stack: in
-- bmap block id: 7114
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on mouseUp
  global fldname, display

  put word 2 of the target into targetType
  if (targetType ≠ "button") and (targetType ≠ "field") then
    exit mouseup
  end if

  put the short name of the target into fldName
  if (last word of fldName = "field") then
    delete last word of fldName
  end if

  put the visible of card field fldName into display
  set the visible of card field fldName to not display

  if (display) then
    set the scroll of card field fldName to 0
  end if

end mouseUp

on closeCard
  set lockscreen to true
  repeat with i = 1 to the number of card fields
    if ("field"=last word of the short name of card field i) then
      put empty into card field i
      next repeat
    end if
    hide card field i
  end repeat

  pass closeCard
end closeCard



-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=66 top=113 right=135 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: search for
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  if not (visible of card field (the short name of me)) then
    put "mac.." into card field "search for field"
  else
    put empty into card field "search for field"
  end if
  pass mouseup
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=66 top=135 right=157 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: And
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  if not (visible of card field (the short name of me)) then
    put "discovery" into card field "and field"
  else
    put empty into card field "and field"
  end if
  pass mouseup
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=66 top=186 right=208 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: But Not
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  if not (visible of card field (the short name of me)) then
    put "CAD.." into card field "but not field"
  else
    put empty into card field "but not field"
  end if
  pass mouseup
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=66 top=210 right=232 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: And Not


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=358 top=210 right=230 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=354 top=140 right=165 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: search


-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=358 top=176 right=196 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find First


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=10 top=300 right=319 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: directions
----- HyperTalk script -----
on mouseup
end mouseup


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=66 top=160 right=182 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: And 2
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  if not (visible of card field (the short name of me)) then
    put "publish.." into card field "and 2 field"
  else
    put empty into card field "and 2 field"
  end if
  pass mouseup
end mouseUp